home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / BTP.PATCH7.ARC / BOBS TERM PATCH7 (.txt)
Commodore BASIC  |  2019-04-13  |  896b  |  24 lines
  1. 10 REM ******************************
  2. 20 REM ** BTPRO DRIVE LOCKUP PATCH **
  3. 30 REM ******************************
  4. 40 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,3
  5. 50 PRINT"   ** BTPRO DRIVE LOCKUP PATCH **":PRINT
  6. 55 PRINT:PRINTTAB(8);"BOB LENTINI  02/28/86"
  7. 60 PRINT:PRINT:PRINTTAB(2);"REMOVE WRITE PROTECT TAB IF PRESENT"
  8. 70 PRINT:PRINT"AND PLACE BT-PRO MASTER DISK IN DEVICE 8"
  9. 80 PRINT:PRINTTAB(8);"PRESS RETURN WHEN READY!"
  10. 100 GETK$:IFK$=""THEN100
  11. 110 IFK$<>CHR$(13)THEN100
  12. 120 OPEN15,8,15:OPEN8,8,8,"#"
  13. 130 PRINT#15,"U1 8 0 16 13"
  14. 140 PRINT#15,"B-P 8 192"
  15. 150 FORN=1TO8:GET#8,C$:S=S+ASC(C$+CHR$(0)):NEXTN
  16. 160 IFS<>1248THEN200
  17. 162 PRINT#15,"B-P 8 250"
  18. 170 PRINT#8,CHR$(2);
  19. 180 PRINT#15,"U2 8 0 16 13"
  20. 190 CLOSE8:CLOSE15:END
  21. 200 PRINT:PRINT"VERSION # MISMATCH"
  22. 210 PRINT:PRINT"THIS PATCH IS FOR VERSION 1.8 & 1.9"
  23. 220 CLOSE8:CLOSE15:END
  24.